home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 37 / Tiger_Disk_037_19xx_Tiger-Crew-Disk_de_Side_B.d64 / --- schluss! --- (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  50 lines
  1. 10 poke53280,.:poke53281,.:print"[147]":rem gemacht von lukian
  2. 20 print"              [213][195][195][195][195][195][195][195][195][195][195][201]
  3. 30 [153]"              peekprinttoandposnewor^newposandtocontpeek
  4. 40 print"              [194]          [194]
  5. 50 [153]"              peekau revoir!waitcontpeek
  6. 60 print"              [194] [149]   ..   [154] [194]
  7. 70 [153]"              peek verify step(NULL)(NULL)(NULL)(NULL)(NULL) cont peek
  8. 80 print"              [194] [149]   ()   [154] [194]
  9. 90 [153]"              peek verify   mid$(NULL)   cont peek
  10. 95 print"              [202][195][184][184][184][184][184][184][184][184][146][195][203]
  11. 100 [153]"poke             *************rnd
  12. 110 print"[151]            [207]    [162][162][162][162][162][162]    [208]
  13. 120 [153]"poke            usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr
  14. 130 print"[129]     druecke                [162][162][162][162][162][162]         "
  15. 140 poke198,0:wait198,1:geta$
  16. 145 ifa$=chr$(160) then 150
  17. 160 s=54272:pokes+24,15:pokes,33:pokes+4,17:pokes+5,26:pokes+6,17:pokes+1,33
  18. 165 pokes+7,33:pokes+8,240:pokes+12,17:pokes+13,202
  19. 170 print"[147]":v=53248:pokev+21,255
  20. 175 fors1=12288to12350:readq1:pokes1,q1:next
  21. 180 fors2=12352to12441:readq2:pokes2,q2:next
  22. 185 fors3=12448to12455:readq3:pokes3,q3:next
  23. 190 :pokev,255:pokev+1,147:
  24. 200 p=190:pokev+1,p:
  25. 205 forx=0to347step3
  26. 215 rx=int(x/255):lx=x-rx*255:
  27. 220 pokev,lx:pokev+16,rx:print"[151]              ende  der  disk           [157]";:print;
  28. 225 ifp=191thenprint"[158]_[157][157][145]";:gosub330
  29. 230 ifp=192then print"[144] [157]";:gosub350
  30. 235 poke2040,p:print"[149] ";:poke2040,p-2:pokev+39,11:fort=1to3:next
  31. 240 p=p+1:ifp>194thenp=190:pokev+39,13
  32. 242 fory=0to340step-5:pokev+23,1:pokev+29,1:pokev+8,y/p:pokev+4,240:print"[145]      ";;;
  33. 243 pokev+2,200:nexty
  34. 245 print" ";: next::goto400
  35. 255 data244,88,240,134,84,128,197,82,192,132,212,128,244,88,240,0,0,0
  36. 260 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  37. 265 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  38. 270 data0,0,0,0,0,0,0,0,0
  39. 280 data0,0,0,244,88,240,134,84,128,197,82,192,132,212,128,244,88,240
  40. 285 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  41. 290 data0,0,0,0,0,0,0,0,0,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0
  42. 295 data1 ,1 ,1
  43. 305 data63,248,0,120,15,224,127,3,252,240,0,196,224,0,112,224,3,64
  44. 310 data199,3,192,141,192,96,136,64,48,140,0,24,134,0,120,131,128,64,129,1,224
  45. 315 data129,195,192,128,0,96,128,0,32,192,0,32,96,3,224,112,6,0,48,12,0,31,248,0
  46. 330 pokes+4,129:pokes+4,128:return
  47. 350 pokes+11,65 :pokes+11,64 :return
  48. 355 pokes+15,17 :pokes+15,16 :return
  49. 400 ti$="000003":wait161,1:sys58253
  50.